home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / bbs / l2101a.zip / STONEB.REF < prev    next >
Text File  |  1997-07-06  |  26KB  |  1,205 lines

  1. ;stoneb.ref, for the town of Stonebrook and nearby.
  2.  
  3.  
  4. @#JACK
  5. @offmap
  6. @do moveback
  7. @do `v01 is 1
  8. @show
  9. `r0`c`%  `r1 Jack's Restaurant `r0
  10.  
  11. `2  You grab a seat and wait for some service.
  12.  
  13. `k  A stocky man with curly hair appears to take your order.
  14.  
  15. `k
  16.  
  17. @label jackstart
  18. @show
  19. `r0`c`%  `r1 Time to tempt your tummy `r0
  20.  
  21. `2  Jack fiddles with his pencil while waiting for you.
  22.  
  23. @do write
  24. `x`x
  25. @choice
  26. Look at the menu.
  27. Order something
  28. Stand up
  29. @
  30.  
  31. @if response is 1 then do
  32.  @begin
  33.  @show
  34. `r0`c  `%Welcome to Jack's!
  35.  
  36.   `5For your dining pleasure we offer several specialties not found
  37.   anywhere else.  You will want to try 'em all!
  38.  
  39. `k  `#Spider Soup (`$$20`#)
  40.  
  41.   `5The delicate Black Widow spider not only makes a great pet `#-`5 but also
  42.   makes a delicious lunch.  Grown especially for Jack's, they are always
  43.   the biggest, plumpest and juiciest you'll find anywhere!
  44.  
  45.   `#Earwig Soufflè (`$$30`#)
  46.  
  47.   `5You'll die of satisfaction when you taste this fabulous dessert!  Created
  48.   with NightHawk egg whites and topped with crunchy earwig body parts, this
  49.   scrumptious delight will leave you breathless!
  50.   
  51.   `#Whole Gloworm (`$$50`#)
  52.  
  53.   `5Extremely rare and famous for the light they give off after biting into
  54.   one, these magical crawlers will squiggle in your mouth providing fun
  55.   incandescent entertainment for the whole family!  Yummy!
  56.  
  57. `k
  58. @do goto jackstart  
  59.  @end
  60.  
  61. @if response is 2 then do
  62.    @begin
  63.    @do write
  64. `\`\  `2Order what?  (`0You have `$&money`2)`\`\`x`x
  65.    @do `v01 is 1
  66.    @choice
  67. `#Spider Soup (`$$20`#)
  68. `#Earwig Soufflè (`$$30`5)
  69. `#Whole Gloworm (`$$50`5)
  70. `#Nuthin'
  71.    @
  72.  
  73.    @if response is 1 then do
  74.     @begin
  75.     @if money < 20 then do
  76.       @begin
  77.       @show
  78. `\`\  `4You can't afford that, poor s&boy.`\`\`k
  79.       @do `v01 is 2
  80.       @do goto jackstart
  81.       @end
  82.     @do money - 20
  83.     @show
  84. `r0`c  `r1  Chow Time  `r0`\`\  `2Jack brings out the bowl of soup.  You pick at it
  85.   carefully with your spoon `0-`2 looks ok.  You slurp some up.
  86. `\`k  `4A spider tries to crawl out of your mouth!
  87. `\`k  `%But you kind of like it!!!  Yum.
  88. `\`k
  89.     @end
  90.  
  91.    @if response is 2 then do
  92.     @begin
  93.     @if money < 30 then do
  94.       @begin
  95.       @show
  96. `\`\  `4You can't afford that, poor s&boy.`\`\`k
  97.       @do `v01 is 2
  98.       @do goto jackstart
  99.       @end
  100.     @do money - 30
  101.     @show
  102. `r0`c  `r1  Chow Time  `r0`\`\  `2Jack brings out the Soufflè.
  103. `\  You see tiny earwigs crawling in and out of it!  
  104. `\`k  `4The earwigs crunch noisily!
  105. `\`k  `%You enjoy the sensation!!!!  What fun!
  106. `\`k
  107.     @end
  108.  
  109.    @if response is 3 then do
  110.     @begin
  111.     @if money < 50 then do
  112.       @begin
  113.       @show
  114. `\`\  `4You can't afford the gloworm.`\`\`k
  115.       @do `v01 is 2
  116.       @do goto jackstart
  117.       @end
  118.     @do money - 50
  119.     @show
  120. `r0`c  `r1  Chow Time  `r0`\`\  `2Jack brings out the Gloworm.
  121. `\  You take a close look at the little guy.
  122. `\`k
  123.     @routine showworm
  124.     @show
  125. `k`r0`c  `r1  GOOD GOD!  `r0
  126. `\  `4The worm is ugly as sin!
  127. `\`k  `2Are you sure you wanna eat this thing?`\
  128.     @do write
  129. `x`x
  130.     @do `v01 is 1
  131.     @choice
  132. Chomp on him
  133. Put him in your pocket for later
  134.     @if response is 1 then do
  135.      @begin
  136.      @show
  137. `\`\  `2You carefully put the squirming worm between your lips, being careful
  138.   `2not to let it bite you.
  139. `\`k  `2You play with the morsel with your tongue, oooh, it tickles!
  140. `\`k  `0You finally decide the fun is over and bite the worm in half.  Juices
  141.   pour into your mouth, hey look, your mouth is glowing!  Yay!
  142. `\`k
  143.       @do `v01 is 2
  144.       @do goto jackstart
  145.      @end
  146.      @show
  147. `\`\  `2You carefully put the worm in your pocket.  You never know when you
  148.   might need it.
  149. `\`k
  150.       @do `i17 + 1
  151.       @do `v01 is 2
  152.       @do goto jackstart
  153.     @end
  154.  
  155.  
  156.  
  157.    @do `v01 is 2
  158.    @do goto jackstart
  159.    @end
  160.  
  161. @drawmap
  162. @update
  163.  
  164. @#SHOWWORM
  165. @pauseoff
  166. @show
  167. `cD░░▒▓■·    ▓▒░──░▒▓▓  
  168. AC░░   ▓▒▓▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒▒▒▒
  169. AC▒░░░░▒▒▒▒          ░░░░░░▓░▓▓
  170. AC▓▓
  171. AC▒░▒▓       ▓▒░
  172. AC░▒▓▓ ▓▒▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒▒
  173. AC▒▒▒▒▒▒▒░░░░░░▒▒▒   ▓▓▓▓  
  174. AC░ ▓▒▓■·  
  175. AC▓▓▓▓▓▓▓    ░░░░ ▓▒░▓▒▓▓▓▓▓▓
  176. AC▓▓▓▓▓▓▓▓▓▓▓▓▒▒▒▒▒▒▒▒▒▒▒▒▒░░░░░░░░░░░▒▒
  177. AC░░▒▓▓▓▓▓░░▓    
  178. AC ■·  ▓▒▒▓ ░░    
  179. AC▓▒▓▓▒▒▓▓▓▓▓▓▓▓▓▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  180. AC▒▒▒░░░░░░░░░░▒▒░░░░▒▓▓  ░    
  181. AC     ▓▓▓▓▓▓ ▓▓▒▒▓▒▒
  182. AC▒ ■■··C░░▒▒▒▒▒▒▒▒▒▒░░  ■■··C
  183. AC░░░░░░░░░░▒▒  ░░░░░ 
  184. AC▒           ▓▓▓▒▒▒▒■·   
  185. AC░▒▒▒ ■■·░░░░▒▒▒▒░░░░ ■■· ░░
  186. AC▒▒▒▒▒░░░░░░░░░░░▒▒   ░ ▓▒░
  187. AC ░░      ▓▒▓▓▓▒▒▌  
  188. AC▒▒▒▒▒▓▓▓▓▓▒▒▒░░ ■·░░▒▒░░■· ░░▒▒
  189. AC▒▒▒▓▓▓▓▒▓▒▓▒█░▒▒░░░░░▒▒▒▒▒░░
  190. AC─░░░░░    ▓▒▓▓▌  ▒▒▒
  191. AC▒▒▓▓▓▓▓▓▓▓▓▒▓▒░░ .░░░░▌ ▒▒▒▒▒▒▓▓▓▓▓▓
  192. AC█▒█▒█▒░░░░
  193. AC▒░░░░░░░
  194. AC░ ░░   ▓▓▓▓▓  ▓C▒▒▒▓▓▓▓
  195. AC▓▓▓▓▓▓▓▒▓▒▓▒▓░░ ░░▒▓▓▓▓▓▓▓▓▓▓▓█
  196. AC█░ ░░░▒▒░░▒░▒▒▒▒░░▒░▒▒▒
  197. AC▒   ▓▓▒▒░▒▓▓ ▓▓C░░
  198. AC
  199. AC░ ░ ░ ░░░░ ░░
  200. AC▌░░
  201. AC
  202. AC░▒▒░░░▒░▒▒ ■·  
  203. AC▓▓▓▓
  204. AC▓▓▓▓▒▒░▒▓▓    ▓▓C░░░░
  205. AC░░▒░ ░ ░░░▓▓
  206. AC░░░░░░▒░░░░
  207. AC░ ░ ░ ░░▒▒░░░▒░▒▒▒
  208. AC        
  209. AC■·              ▓▓
  210. AC░░▒▒▓█▓▒▒░░░░░░░▒░
  211. AC▒▒▒▒░░░░░▒▒░░░▒▒▓█▓▒▒░▒▒░▒▒▒░░
  212. AC░░░░░▒▒ 
  213. AC        ░░    ▓▒▓  ░░░
  214. AC░░▒▓▒░░░░░░░C
  215. AC▒  ▒░▒░░░░░▓▒░░░▒▓▒░▒░░
  216. AC▒▒▒▒   ▓▒░░▒▓▓
  217. AC▓▓    ░░░░░░ ▓▒░░▒▓ ▓▒░░░░░
  218. AC░░░░░▒▒░░░░░░░░▒▒▒▒▒░░░░░░░░
  219. AC░░░░░▒▒▒▒    ▓▒░──
  220. AC─░▒▒
  221. AC▒▒▓     ░░  ▓▒░░▒▓  ▓▒
  222. AC▓▓▓▒░░░▒▒░░░
  223. AC▒▒▒▒▒▒▒▒▒▒▒▒▒▒░░░░░░░▒░░▒▒▒▒     ▓▒░
  224. AC─────░░
  225. AC░▒▒▓▓▓▓▓▓▓▓▓▒░░▒▓     ▓▒▓▓▒
  226. AC▓▓▒▒▌ 
  227. AC▌ ▌ ▌ 
  228. ACC▒▒▒▒▒▒░░░░░▒▒▒▒        ▓▒░
  229. AC──────
  230. AC──░▒▒▒▒▒▒▒▒▒░░▒▓     ▓▓  
  231. AC▒▓▒▒░C▌■▓C▓
  232. AC▌■▓C░░░░░░░──
  233. AC▒▓ ■·       ▓▒░─────
  234. AC───░░░░░░░░░░▒▓■·   ▓▒▒▒
  235. AC    ▓▒■C▌ 
  236. AC▌ ▓C░░░░▒▒▒
  237. AC▒────░▒▓         ▓▒░───
  238. AC──────────░▒▓■·    ░ ▓▒░▒▓  
  239. AC░  ▓▒▒▒▒▒▒▒░░░░░░░░░
  240. AC░░▒▒▒▒ ▓▒░─────░▒▓     
  241. AC░  ▓▒░──
  242. AC──────────░▒▓    ░░░ ▓▒▒▓
  243. AC ░░░▓▒▒ ▓▒░░▒▒▒▒░░░░
  244. AC░░▒▒▒▒▒ ·   ▓▒░─────
  245. AC░▒▓ ░░░░░   ▓▒
  246. AC░`%
  247. @pauseon
  248.  
  249. @#JACKSIGN
  250. @do moveback
  251. @do saybar
  252. `6<--- This way to Jack's Restaurant.
  253.  
  254. @#JACKSEAT
  255. @do moveback
  256. @do saybar
  257. `6Please seat yourself.
  258.  
  259.  
  260. @#COATRACK
  261. @do moveback
  262. @do saybar
  263. Nice coat rack.
  264.  
  265.  
  266. @#CAVESIGN
  267. @do moveback
  268. @do saybar
  269. `6Cave condemned, stay out.  - City council of Stonebrook
  270.  
  271. @#BIRD
  272. @do moveback
  273. @if `t08 not 0 then do
  274.   @begin
  275.   ;already got the bird
  276.   @do saybar
  277. The nest is empty, save some bird crap.
  278.   @closescript
  279.   @end
  280.  
  281. @if `t05 < 4 then do
  282.   @begin
  283.   ;doesn't know about Hector yet
  284.   @do saybar
  285. You see a nest... Hmm, whatever lives here must be out.
  286.   @closescript
  287.   @end
  288.  
  289.  
  290.  
  291. @show
  292. `r0`c  `r1 `0POLLY WANTS A CRACKER `r0
  293.  
  294. `2  You find a nest!  There is a parrot in it!  It looks at you fearfully
  295.   in an almost human way.
  296.  
  297.   `0"Awk!  Leave me alone! Awk!"
  298.  
  299. `k  You squint at the parrot. `$"What is your name, bird?"
  300.  
  301.   `0"I'm Hector - an old witch cast an enchantment on me! Awk!"
  302.  
  303.   `2You look at the bird skeptically.
  304.  
  305.   `0"She wants to eat me!  Awk! I have been hiding from her for years!"
  306.  
  307. `k  `$"Why didn't you just fly away, silly?" `2you ask.
  308.  
  309. `0  "She clipped my wings every week - maybe I could now...Awk."
  310.  
  311. `k  `$"Tough luck.  You're coming with me!"  `2you laugh as you scoop
  312.   the bewildered parrot up.
  313.  
  314.   `%YOU HAVE THE PARROT! (AND 3 MORE QUEST POINTS!)
  315.  
  316. `k
  317. @do `i18 is 1
  318. @do `t08 is 1
  319. @do `p18 + 3
  320. @drawmap
  321. @update
  322.  
  323. @#CHEST1
  324.  @do moveback
  325.  @if `t06 is 0 then do
  326.   @begin
  327.   @do `t06 is 1
  328.   @do money + 35
  329.   @do saybar
  330. `0You find `$35 `0gold pieces!
  331.   @closescript
  332.   @end
  333.  
  334.   @do saybar
  335. `0The chest is empty.
  336.  
  337.  
  338.  
  339. @#CHEST2
  340.  @do moveback
  341.  @if `i07 is 0 then do
  342.   @begin
  343.   @do `i07 is 1
  344.   @do saybar
  345. `0You find an Ancient flute!
  346.   @closescript
  347.   @end
  348.  
  349.   @do saybar
  350. `0The chest is empty.
  351.  
  352.  
  353.  
  354. @#FALL
  355.  
  356.   @do X is 20
  357.   @do Y is 9
  358.   @do map is 1518
  359.   @loadmap 1518
  360.  
  361. @show
  362. `r0`c  `4OH NO.
  363.  
  364. `2  You have tripped and banged your head a good one `0-`2 just when you were
  365.   doing so good!  Maybe if you had some light, you would have avoided that
  366.   hole.. Haw!
  367.  
  368. `k  `2You wake up a few hours later outside.  Strange, who could have helped
  369.   you?
  370.  
  371. `k
  372. @drawmap
  373. @update
  374.  
  375. @#SNAKE
  376.   @do saybar
  377. `2Ouch!  A snake bit you for `b5`2 damage!
  378.   @do `p02 - 5
  379.   @if `p02 < 1 then do
  380.     @begin
  381.     @do enemy is a`xsnake
  382.     @run die in gametxt.ref
  383.     @end
  384.  
  385.  
  386. @#CAVE
  387.   @do X is 39
  388.   @do Y is 19
  389.   @do map is 1289
  390.   @loadmap 1289
  391.   @drawmap
  392.   @update
  393.   @do saybar
  394. Arg!  You can't see a thing, it's pitch black in here!
  395.  
  396. @#OLDWOMAN
  397. @offmap
  398. @do moveback
  399. @do `v01 is 1
  400. @label oldstart
  401. @show
  402. `r0`c  `%`r1  THE OLD WOMAN'S HOUSE  `r0 
  403.  
  404. `2  You are greeted by the smell of decay and rot.
  405. @if `t05 is 0 then do
  406.  @begin
  407.  @show
  408. `\  `2You hear a voice from the back.  `0"Come in, dearie!!!"
  409.  @end
  410.  
  411. @if `t05 is 1 then do
  412.  @begin
  413.  @show
  414. `\  `2The old woman is looking at you expectantly.
  415.  @end
  416.  
  417. @if `t05 is 2 then do
  418.  @begin
  419.  @show
  420. `\  `2The old woman is tidying up the shack.
  421.  @end
  422.  
  423.  
  424. @do write
  425. `\`x`x
  426. @choice
  427. =`t05 0 Whatup, ugly hag?
  428. =`t05 0 Hi.  Damn you're ugly!
  429. =`t05 0 Good lord, woman!! What happened to your face?
  430. =`t05 1 Ask to taste her brew.
  431. =`t05 1 >`i11 0 <`p07 -5 `4Offer your little friend as an ingredient.
  432. =`t05 1 >`i01 0 Offer some wildberries as an ingredient.
  433. =`t05 1 >`i08 0 Offer momma's pie as an ingredient.
  434. =`t05 1 >`i03 0 Offer milk as an ingredient.
  435. =`t05 2 Ask to taste her stew.
  436. =`t05 3 Hector?  Who the hell is Hector?
  437. =`t05 4 Talk to the woman.
  438. =`t08 3 =`t05 4 Um yeah.. I sort of let Hector fly away.  Ya mad?
  439. =`i18 1 Hey.  I brought your damn bird.
  440. =`t05 5 =`t08 0 Anything new, old woman?
  441. =`t05 5 =`t08 3 Anything new, old woman?
  442. =`t05 1 >`i43 0 Offer an Egg as an ingredient.
  443. Leave
  444. @
  445.  
  446.  
  447. @if `v01 is 1 then do
  448.   @begin
  449.   @show
  450. `\`\  `0"Not much, young man! I'm merely cooking my stew!" `2she cackles.
  451.  
  452. `k
  453.   @do `t05 is 1
  454.   @do goto oldwoman
  455.   @end
  456.  
  457. @if `v01 is 2 then do
  458.   @begin
  459.   @show
  460. `\`\  `0"Thankyou for noticing that.  Wanna test my stew?" `2she asks.
  461.  
  462. `k
  463.   @do `t05 is 1
  464.   @do goto oldwoman
  465.   @end
  466.  
  467. @if `v01 is 3 then do
  468.   @begin
  469.   @show
  470. `\`\  `0"My face?  How do you mean?  No mind!  I'm making stew!" `2she exclaims.
  471.  
  472. `k
  473.   @do `t05 is 1
  474.   @do goto oldwoman
  475.   @end
  476.  
  477. @if `v01 is 5 then do
  478.   @begin
  479.   @do `i11 is 0
  480.   @do `p07 - 2
  481.   @do `t06 + 2
  482.   @show
  483. `\`\  `0"Ahh!  Fresh meat!" `2the woman screams.  She takes the struggling
  484.   small child from you and prepares her for the stew.
  485.  
  486.   You wonder why your heart has grown so cold.
  487.  
  488.   `4ALIGNMENT GOES DOWN BY TWO.
  489.  
  490. `k
  491.   @do goto oldwoman
  492.   @end
  493.  
  494. @if `v01 is 6 then do
  495.   @begin
  496.   @do `i01 - 1
  497.   @do `t06 + 1
  498.   @show
  499. `\`\  `0"Wildberries?  Ok!" `2the woman takes your berries and throws them
  500.   into the evil looking brew.
  501.  
  502. `k
  503.   @do goto oldwoman
  504.   @end
  505.  
  506. @if `v01 is 16 then do
  507.   @begin
  508.   @do `i43 - 1
  509.   @do `t06 + 1
  510.   @show
  511. `\`\  `0"An egg?  Ok!" `2the woman takes the egg and throws it
  512.   into the evil looking brew.
  513.  
  514. `k
  515.   @do goto oldwoman
  516.   @end
  517.  
  518.  
  519. @if `v01 is 7 then do
  520.   @begin
  521.   @do `i08 - 1
  522.   @do `t06 + 1
  523.   @show
  524. `\`\  `0"A pie?  Ok!" `2the woman takes your pie and smashes it up - then
  525.   sprinkles the goo into the iron cauldron.
  526.  
  527. `k         
  528.   @do goto oldwoman
  529.   @end
  530.  
  531. @if `v01 is 8 then do
  532.   @begin
  533.   @do `i03 - 1
  534.   @do `t06 + 1
  535.   @show
  536. `\`\  `0"Milk?  Ok!" `2the ever-so-wrinkled woman carefully empties your
  537.   bottle of milk into the bubbling liquid.
  538.  
  539. `k
  540.   @do goto oldwoman
  541.   @end
  542.  
  543.  
  544.  
  545. @if `v01 is 4 then do
  546.   @begin
  547. @show
  548. `\`\  `0"Sure!  How is it?" `2the elderly one dips a stained ladle into the
  549.   boiling broth and offers it to you.
  550.  
  551.   `0After carefully blowing on it, you slurp it up.
  552.  
  553. @
  554.  
  555.  
  556.  
  557.   @if `t06 is 0 then do
  558.    @begin
  559.  
  560.   @do `p02 - 2
  561.   @if `p02 < 1 then `p02 is 1
  562.   @show
  563. `k  `4It tastes horrible.  `$"GAWD WOMAN!" `2you scream, `$"LEARN HOW TO
  564.   COOK!!!"
  565.  
  566. `2  The old woman's face falls.  `0"I must still be missing a few
  567.   ingredients... Just you wait, this will eventually be the best stew
  568.   you've ever tasted!"
  569.  
  570.   `2Amused at her antics you forgive her for the pain in your stomach.   
  571.  
  572. `k
  573.   @end
  574.  
  575.   @if `t06 is 1 then do
  576.    @begin
  577.    @show
  578. `k  `2It tastes like crap basically.. but not quite as bad as before...
  579. `\`k
  580.   @end
  581.  
  582.  
  583.   @if `t06 > 1 then do
  584.    @begin
  585.    @do `p03 + 5
  586.    @do `p02 is `p03
  587.    @do `t06 is 0
  588.    @do `t05 is 2
  589.    @show
  590. `k  `%IT TASTES GREAT.  `$"Old woman! I love this!" `2you tell her.
  591.  
  592. `k`0  "Thank you so much, dearie!  Would you like some more?" `2she smiles.
  593.  
  594.   `2You finish off the pot.
  595.  
  596.   `%HEALTH RAISED BY 5.
  597.  
  598. `\`k
  599.   @end
  600.  
  601.  
  602.   @do goto oldwoman
  603.   @end
  604.  
  605. @if response is 9 then do
  606.   @begin
  607.   @show
  608. `\`\  `0"Sorry s&boy,  you have already drank the last of it." `2the old woman
  609.   tells you sadly.
  610.  
  611.   `$"Well, make more!  Now!" `2you demand.
  612.  
  613.   `0"I can't!"`2 cries the woman, `0"Not without my Hector!"
  614. `\`k
  615.   @do `t05 is 3
  616.   @do goto oldwoman
  617.   @end
  618.  
  619. @if response is 10 then do
  620.  @begin
  621.  @show
  622. `\`\  `0"Hector is my friend.  He disappeared a few months ago - I need him!"
  623.  
  624.   `$"Geez...  Someone like you really needs friends, I'll do everything in
  625.   my power to find 'em for ya, ma'am," `2you console her.
  626.  
  627. `k
  628.  @do `t05 is 4
  629.  @do goto oldwoman
  630.  @end
  631.  
  632. @if response is 11 then do
  633.  @begin
  634.  @show
  635. `\`\  `0"Where is Hector?!?! Where is he?!"
  636.  
  637.   `$"Um, I'll be right back...With Hector!" `2you lie glibly.
  638.  
  639. `k
  640.  @do goto oldwoman
  641.  @end
  642.  
  643. @if response is 12 then do
  644.  @begin
  645.  @show
  646. `\`\  `0"YOU LET HIM FLY AWAY!!?!?  I HATE YOU!!  GET OUT!"
  647.  
  648. `2  It looks like she means it.  You decide to take off.
  649.  
  650. `k
  651. @do `t05 is 5
  652.  @end
  653.  
  654. @if response is 13 then do
  655.  @begin
  656.  @show
  657. `\`\  `0"Ahhh!  You found my little friend!"
  658.  
  659. `2  She puts him in a cage and starts a cookin' away.
  660.  
  661.   `$"Cool, are you gonna put him in your brew for some special sauce or
  662.   something?" `2you ask.
  663.  
  664. `k  `0"Of course not!!  That would be inhumane.  He just inspires me!!  Here,
  665.   try this.."
  666.  
  667.   `%THE FOOD GIVES YOU 2 EXTRA MUSCLE!
  668.  
  669. `k
  670. @do `t05 is 5
  671. @do `p04 + 2
  672. @do `i18 is 0
  673.  @do goto oldwoman
  674.  @end
  675.  
  676. @if response is 14 then do
  677.  @begin
  678.  @show
  679. `\`\  `0"No, not really.  Same old crap." `2she sighs.
  680.  
  681. `k
  682.  @do goto oldwoman
  683.  @end
  684. @if response is 15 then do
  685.  @begin
  686.  @show
  687. `\`\  `0"Get out, homewrecker!" `2she screams, throwing pots and pans at you!
  688.  
  689. `k
  690.  @end
  691.  
  692.  
  693. @drawmap
  694. @update
  695.  
  696.  
  697.  
  698. @#grocery
  699. @offmap
  700. @do moveback
  701. @do `v01 is 1
  702. @label grab
  703. @show
  704. `r0`c  `%The Stonebrook Grocery
  705.  
  706. `2  The store is nice and cool inside.
  707.  
  708. @do write
  709. `x`x
  710. @choice
  711. Buy some groceries.
  712. Go outside.
  713. @show
  714. `\
  715. @if responce is 1 then do begin
  716.  @begin
  717. @buymanager
  718.   3
  719.   1
  720.   @end
  721.  
  722. @if responce not 2 then goto grab
  723. @drawmap
  724. @update
  725.  
  726.  
  727. @#healers
  728. @offmap
  729. @do moveback
  730. @do `v01 is 1
  731. @show
  732. `r0`c  `%The Healers
  733.  
  734. `2  You see a sign on the wall that says healing cost 1/2 gold per hitpoint
  735.   needed.
  736.  
  737. `2  Gretchen looks you over for wounds.
  738.  
  739. @do write
  740. `x`x
  741. @if `p02 < `p03 then do
  742.  @begin
  743. @do `p20 is `p03
  744. @do `p20 - `p02
  745. @do `p20 / 2
  746.  
  747.  
  748.  
  749.  @show
  750. `0"You don't look so good, friend!  I'll fix ya up for `$`p20`0 gold, k?"
  751.  
  752. @do write
  753. `x`x
  754. @choice
  755. Heal yourself for `$$`p20`%. (you have `$$&money`%)
  756. Limp on out.
  757. @show
  758. `\
  759. @if response is 1 then do begin
  760.  @begin
  761.  @if money < `p20 then do
  762.   @begin
  763.   @show
  764.   `0"Sorry, I'm not gonna perform those services for free!"
  765.  
  766. @if sexmale is 1 then do
  767.  @begin
  768.  @do write
  769. `x`x
  770.  @choice
  771. For `$$`p20`%, you better perform some other services too, whore!
  772. How about I pay with my good looks, honey?
  773. How 'bout you and me go in the back and I show you my sword?
  774. Meekly accept, and compliment her on her dress
  775. @show
  776.  
  777.  
  778. @if response is 4 then do
  779.  @begin
  780.  @show
  781.   `0"That's a good lad, now get along with you!" `2 she laughs.
  782.  
  783. `k
  784.  @end
  785.  
  786. @if response is 1 then do
  787.  @begin
  788.  @show
  789.   `0"How dare you say that to me!  Get out!!!!" `2 she screams.
  790.  
  791. `k
  792.  @end
  793. @if response is 2 then do
  794.  @begin
  795.  @show
  796.   `0"I'd rather kiss a troll." `2 she informs you.
  797.  
  798. `k
  799.  @end
  800. @if response is 3 then do
  801.  @begin
  802.  @do `p02 = 1
  803.  @show
  804.   `0"How 'bout I show you my fists?" `2 she yells as she sticks a needle in you!
  805.  
  806.   `4HIT POINTS GO DOWN TO 1.
  807.  
  808. `k
  809.  @end
  810.  
  811.  
  812.  
  813.  @end
  814.  
  815.   @drawmap
  816.   @update
  817.   @closescript
  818.   @end
  819.  
  820. @do money - `p20
  821. @do `p21 = `p03
  822. @do `p21 - `p02
  823. @do `p02 = `p03
  824. @show
  825.   `2You feel much better as `0`p21`2 hitpoints are restored.
  826.  
  827. `k
  828.   @end
  829.   @drawmap
  830.   @update
  831.   @closescript
  832. @end
  833.  
  834. @show
  835. `0"You are a perfect picture of health, dear `$`n`$!" `2Gretchen exclaims.
  836.  
  837. `k
  838. @drawmap
  839. @update
  840.  
  841.  
  842. @#winthrog
  843. @offmap
  844. @do moveback
  845. @do `v01 is 1
  846. @label rog1
  847. @show
  848. `r0`c  `%Winthrog's Weapons
  849.  
  850. `2  An elderly man sits, absently playing with knife.
  851.  
  852. @do write
  853. `x`x
  854. @choice
  855. Examine his wares.
  856. Ask him to buy some of your stuff.
  857. Gossip with Winthrog
  858. Go outside.
  859. @show
  860. `\
  861. @if responce is 1 then do begin
  862.  @begin
  863.  @clearblock 8 14
  864.  @do move 1 7
  865.  @buymanager
  866.   4
  867.   9
  868.   @end
  869.  
  870. @if responce is 2 then do begin
  871.  @begin
  872. @show
  873.   `!"I don't think so - Go sell it to the Pawn Shop - I do all my business
  874.   with them!" `2the codger relates.
  875.  
  876. `k
  877. @do goto rog1
  878.   @end
  879.  
  880. @if responce is 3 then do begin
  881.  @begin
  882. @show
  883.   `!"Gossip, eh?  Well, I heard a crazy old man lives in a shack south of
  884.   here... "
  885.  
  886.   `$"Really?  What else?" `2you ask.
  887.  
  888.   `!"That old shack has a fake wall section somewhere inside..."
  889.  
  890. `k
  891. @do goto rog1
  892.   @end
  893.  
  894.  
  895. @if responce not 4 then goto winthrog
  896. @drawmap
  897. @update
  898.  
  899. @#pawn
  900. @offmap
  901. @do moveback
  902. @do `v01 is 1
  903. @label pawn1
  904. @show
  905. `r0`c  `%The Pawn Shop
  906.  
  907. `2  Hagar motions you to approach.  He reeks of wine.
  908.  
  909. @do write
  910. `x`x
  911. @choice
  912. Examine his wares.
  913. Ask him to buy some of your stuff.
  914. Gossip with Hagar
  915. Go outside.
  916. @show
  917. `\
  918. @if responce is 1 then do begin
  919.  @begin
  920.  @clearblock 8 14
  921.  @do move 1 7
  922.  @buymanager
  923.   5
  924.   6
  925.   20
  926.   @end
  927.  
  928. @if responce is 2 then do begin
  929.  @begin
  930.  @clearblock 8 14
  931.  @do move 1 7
  932.  @sellmanager
  933.   @end
  934.  
  935. @if responce is 3 then do begin
  936.  @begin
  937. @show
  938.   `0"Wanna know something really strange?  I heard there is a tree on
  939.   Neb's Road that has magical powers..."
  940.  
  941.   `2You stare at him in disbelief.  `$"Yeah right, quit telling me stories,
  942.   Hagar!  You ain't exactly the most trustworthy man in town, ya know."
  943.  
  944. `k
  945.   @end
  946.  
  947.  
  948.  
  949. @if responce not 4 then goto pawn1
  950. @drawmap
  951. @update
  952.  
  953. @#tree
  954. @offmap
  955. @do moveback
  956. @show
  957. `r0`c  `%The Tree Hollow
  958.  
  959. `2  You find a hollow in a tree.
  960.  
  961. @if `p98 is 0 then do begin
  962.  @begin
  963.  @show
  964.   There is a chest here.  What could it be?
  965.  
  966.  @end
  967.  
  968. @if `p98 more 0 then do begin
  969.  @begin
  970.  @show
  971.   There is an open chest here.  It is empty.
  972.  
  973.  @end
  974.  
  975. @do write
  976. `x`x
  977. @do `v01 is 1
  978. @choice
  979. =`p98 0 Open the chest - something good must be inside, baby!
  980. =`p98 1 Kick the crappy chest.
  981. =`p98 0 Carefully open the thing.  Could be a trap?
  982. Leave.
  983. @show
  984.  
  985.  
  986. @if response is 1 then do begin
  987.  @begin
  988.  @do `p98 is 1
  989.  @do money + 25
  990.  
  991.  @show
  992.   `2You find the chest opens easily.
  993.  
  994.   `%YOU FIND 25 GOLD PIECES!
  995.  
  996.   `2You exit the hollow to find yourself in the sunlight once again.
  997.  
  998. `k
  999.  @end
  1000.  
  1001. @if response is 3 then do begin
  1002.  @begin
  1003.  @do `p98 is 1
  1004.  @do money + 25
  1005.  
  1006.  @show
  1007.   `2You spend half an hour opening a harmless chest.  Isn't a damn trap!
  1008.  
  1009.   `%YOU FIND 25 GOLD PIECES!
  1010.  
  1011.   `2You exit the hollow to find yourself in the sunlight once again.
  1012.  
  1013. `k
  1014.  @end
  1015.  
  1016.  
  1017.  
  1018. @if response is 2 then do begin
  1019.  @begin
  1020.  @show
  1021.   `2You defiantly strike the chest with your foot.  Satisfaction is
  1022.   gained.
  1023.  
  1024.   Actually, you feel kind of stupid and decide to take off.
  1025.  
  1026. `k
  1027.  @end
  1028.  
  1029.  
  1030. @drawmap
  1031. @update
  1032. @#nothing
  1033. @#sign1
  1034.  
  1035. @do saybar
  1036. `2Sign reads: `0`4Danger! `0This area is not safe.  Run.  Run!
  1037. @do moveback
  1038.  
  1039. @#sign2
  1040. @do saybar
  1041. `2Sign reads: `0Welcome to `%Stonebrook`0 - the quaintly small town!
  1042. @do moveback
  1043.  
  1044. @#greensign
  1045. @do saybar
  1046. `2Sign reads: `0 <-- Greentree         StoneBrook -->
  1047. @do moveback
  1048.  
  1049.  
  1050. @#fightned
  1051. @fight
  1052. ;name
  1053. Neb Stringly
  1054. ;string said when you see him
  1055. You lunge at Neb, your `0s&weapon `2ready!
  1056. ;power move kill string
  1057. You cleanly cut off one of Neb's hands!
  1058. ;sex - 1 is male, 2 is female, 3 is it
  1059. 1
  1060. ;weapon and strength for the weapon, up to 5
  1061. punches you in the face|10
  1062. low blows you|15
  1063. socks you in the jaw|7
  1064. NONE|NONE
  1065. NONE|NONE
  1066. ;defense
  1067. 5
  1068. ;gold reward
  1069. 50
  1070. ;experience
  1071. 20
  1072. ;hit points
  1073. 25
  1074. ;if win: ref file|name or NONE
  1075. STONEB.REF|BEATNEB
  1076. ;if lose: ref file|name or NONE
  1077. GAMETXT.REF|DIE
  1078. ;If runs: ref file|name or NONE
  1079. STONEB.REF|NEBRUN
  1080.  
  1081. @#NEBRUN
  1082. @show
  1083. `c  `r1 YOU WEENIED OUT `r0
  1084.  
  1085.   `2Neb kicks you in the seat of your pants as you scurry away.
  1086.  
  1087. `k
  1088. @DRAWMAP
  1089. @UPDATE
  1090. @#BEATNEB
  1091. @do `s01 is BITCH
  1092. @if `v06 is 1 then `s01 is punk
  1093. ;clean mode fix
  1094. @show
  1095. `c  `r1 YOU CRUSHED THE NEBSTER `r0
  1096.  
  1097.   `$"Whatup, `s01?" `2you ask Neb as he struggles to get up.  You finally
  1098.   take your foot off his neck.
  1099.  
  1100.   `2Neb scrambles to his feet.  `0"Geez s&man, what's wrong with you?  I waz
  1101.   jes' joking with ya's anyway!"
  1102.  
  1103.   `2You can't help but laugh, what a fool. `%(YOU GET 5 QUEST POINTS!)
  1104.  
  1105. `k
  1106. @do `p18 + 5
  1107. @do `t03 is 2
  1108. @drawmap
  1109. @update
  1110. @#NEB
  1111. @if `t03 more 1 then do
  1112.   @begin
  1113.   @do saybar
  1114. `2Neb meekly lets you pass.
  1115.   @closescript
  1116.   @end
  1117.  
  1118. @if &lastx is 9 then do
  1119.  @begin
  1120.  @do x is 11
  1121.   @do saybar
  1122. `2Neb trips you as you walk by!
  1123.   @closescript
  1124.  @end
  1125.  
  1126. @do moveback
  1127. @busy
  1128. @show
  1129. `r0`c  `r1 NEB STRINGLY `r0
  1130.  
  1131. @if `t03 is 0 then do
  1132.  @begin
  1133.  @do `t03 is 1
  1134.  @show
  1135.   `0"STOP RIGHT THERE, KID!" `2a tall and gangly youth with some serious
  1136.    acne problems shouts.
  1137.  
  1138. @do write
  1139. `x`x
  1140. @do `v01 is 1
  1141. @choice
  1142. Who me?  Am I in the way?
  1143. May I please pass?  I have important business.
  1144. Shutup crater face before I knock your head off.
  1145. @show
  1146.  
  1147.  
  1148.   `0"I'm Neb Stringly and you will do what I say!" `2he commands.
  1149.  
  1150. `k  `2You roll your eyes.  Who IS this freak?
  1151.  
  1152. `k`c  `r1`% MEETING NEB `r0
  1153.  
  1154. @end
  1155. @show
  1156.   `0"Alright you!  This is MY road and no one crosses without my permission."
  1157.  
  1158.   `$"And just how would I get that?" `2you ask sarcastically.
  1159.  
  1160.   `0"Pay me `$50 `0gold pieces, you bumwisket!"
  1161.  
  1162. @do write
  1163. `x`x
  1164. @do `v01 is 1
  1165. @choice
  1166. >&money 49 Pay the man.
  1167. <&money 50 Offer Neb the `$$&money `%you are holding.
  1168. Beat the @#$% out of 'em.
  1169. Find something else to do.
  1170. @if response is 3 then do
  1171.   @begin
  1172.   @do goto fightned
  1173.   @end
  1174.  
  1175. @if response is 2 then do
  1176.   @begin
  1177.   @do money is 0
  1178.   @show
  1179.  
  1180.  
  1181.   `0"Thanks kid," `2Neb laughs - `2as he `bsteals`2 all your gold!
  1182.  
  1183.   `$"You'll pay for this Neb!  I don't know how and I don't know where, but
  1184.   someday... you might." `2you finish rather impotently.
  1185.  
  1186. `k
  1187.   @end
  1188.  
  1189. @if response is 1 then do
  1190.   @begin
  1191.   @do money - 50
  1192.   @show
  1193.  
  1194.  
  1195.   `0"Thanks kid," `2Neb laughs as you quickly move past him.
  1196.  
  1197. `k
  1198.   @do x is 9
  1199.   @end
  1200.  
  1201.  
  1202. @drawmap
  1203. @update
  1204. @#nothing
  1205.